﻿Public Class frmLoguin
    Dim contador As Integer = 3
    ' TODO: inserte el código para realizar autenticación personalizada usando el nombre de usuario y la contraseña proporcionada 
    ' (Consulte http://go.microsoft.com/fwlink/?LinkId=35339).  
    ' El objeto principal personalizado se puede adjuntar al objeto principal del subproceso actual como se indica a continuación: 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' donde CustomPrincipal es la implementación de IPrincipal utilizada para realizar la autenticación. 
    ' Posteriormente, My.User devolverá la información de identidad encapsulada en el objeto CustomPrincipal
    ' como el nombre de usuario, nombre para mostrar, etc.

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim usuario As String = txtUsuario.Text
        Dim password As String = txtPassword.Text
        Dim tabla As DataTable
        Dim consulta As String
        consulta = "SELECT usuario, password, rol FROM Persona WHERE usuario='" + usuario + "' and password='" + password + "'"
        tabla = ejecutarConsulta(consulta)
        If (tabla.Rows.Count > 0) Then
            rol = Integer.Parse((tabla.Rows(0)(2).ToString()))
            nombreUsuario = usuario
            MessageBox.Show("Bienvenido " + nombreUsuario, "Bienvenido", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            Me.Close()
        Else
            If contador > 0 Then
                MessageBox.Show("Nombre de Usuario o Password Incorecto. Intente nuevamente. Le quedan " + contador.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
                contador = contador - 1
            Else
                Me.Close()
            End If
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub frmLoguin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
